home *** CD-ROM | disk | FTP | other *** search
- ;
- ; Zool2 Install Script - Original by Graeme Ing (adapted by AF)
- ; Original Sorasil script by Kevin Dudley
- ;
-
-
- ; Find Destination for Install
- ;
-
- (set @default-dest
- (askdir
- (prompt "Please specify the drawer (or partition) where you wish to install \"zool2\" to.")
- (help @askdir-help)
- (default @default-dest)
- (disk)
- )
- )
-
-
- ; Is there enough disk space to complete the installation?
- ;
-
- (set diskspace
- (getdiskspace @default-dest)
- )
-
-
- (if (< diskspace 1700000)
- (abort "zool2 needs approximately 1.7 MegaBytes of disk space to install and you only have " diskspace " bytes free.")
-
- )
-
- (set user-dir
- (askstring
- (prompt "Enter the name you wish to call the drawer where \"zool2\" will be installed.")
- (help @askstring-help)
- (default "zool2")
- )
- )
-
- (set default-dir
- (cat @default-dest user-dir)
- )
- (makedir default-dir
- (prompt "A drawer called \"" user-dir "\" will now be created in your \"" @default-dest "\" drawer (or partition).")
- (help @makedir-help)
- (infos)
-
- )
-
-
- ; Disk Two
- ;
-
- (set disk2-dir (cat default-dir "/z2hd2"))
- (set disk1-dir (cat default-dir "/z2hd1"))
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 2\"...")
- (help @copyfiles-help)
- (source "z2d2:")
- (dest disk2-dir)
- (files)
- (pattern "mng.#?")
- )
-
- (complete 35)
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 2\"...")
- (help @copyfiles-help)
- (source "z2d2:")
- (dest disk2-dir)
- (files)
- (pattern "sam.#?")
- )
-
- (complete 40)
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 2\"...")
- (help @copyfiles-help)
- (source "z2d2:zplatfor")
- (dest disk2-dir)
- )
-
- (complete 45)
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 2\"...")
- (help @copyfiles-help)
- (source "z2d2:zool2a")
- (dest default-dir)
- (newname "run_zool")
- )
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 2\"...")
- (help @copyfiles-help)
- (source "z2d2:zool2.inf")
- (dest default-dir)
- (newname "run_zool.info")
- )
-
- (complete 50)
-
- ; Disk One
- ;
-
- (askdisk
- (prompt "DISK 2 Complete.\n Please insert your \"Zool2 Disk 1\".")
- (help @copyfiles-help)
- (dest "z2d1")
- )
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 1\"...")
- (help @copyfiles-help)
- (source "z2d1:")
- (dest disk1-dir)
- (files)
- (pattern "mng.#?")
- )
-
- (complete 80)
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 1\"...")
- (help @copyfiles-help)
- (source "z2d1:zoo.mod")
- (dest disk1-dir)
- )
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 1\"...")
- (help @copyfiles-help)
- (source "z2d1:sam.ztweet")
- (dest disk1-dir)
- )
-
- (complete 90)
-
- (copyfiles
- (prompt "Copying files from \"Zool2 Disk 1\"...")
- (help @copyfiles-help)
- (source "z2d1:z2")
- (dest default-dir)
- )
-
- (complete 100)
-
- ; Installation Complete
- ;
-
- (exit "Now put your \"Zool2\" Disks\nin a safe place.\nNow reset your Amiga!")
-
-